e (setq $print-budget-monthly t) read (salary in dsk (pro he)) read (md in dsk (pro he)) budget first-year (md out dsk (pro he))